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IDENTIFICATION 

PRODUCT CODE: AC-E502A-nC 

PRODUCT NAHE: CZTUTAG THOS/TUAS UTILITY DRIVER 
DATE CREATED: 25 HAY 1978 
NAINTAINER: CSS - NASHUA 

AUTHOR: J. G. ADANS/R. J. COLLINS 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND HAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1975,1976,1977, 1978 BY DIGITAL EQUIPMEN CORPORATION 
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1. ABSTRACT 



THIS PROGRAM IS INTENDED AS A BRUTE FORCE ROUTINE 

TO EXECUTE AN OPERATION Oft SERIES OF OPERATIONS, CONTINUOUSLY 

REGARDLESS OF THE ftESULTS OF THE OPERATION. BECAUSE 

OF THE COMPLEXITY OF THE TU45 BAG TAPE SYSTEN AS 

OPERATED ON THE NASSBUS, IT IS NOT ALWAYS POSSIBLE TO 

PROVIDE FOR EVERY CONTINGENCY IN THE NORMAL PROGRAMS. 

THEREFORE THIS UTILITY DRIVER WILL ALLOW AN OPERATOR 

TO EXECUTE ANYTHING DESIRE!/ IN AKY ORDER. THERE ARE 

NO ERROR CHECKS OR PRINTOUTS HADt, AND ANY VARIATION 

FROM PRESET SEQUENCES AND VALUES ARE MADE BY 

CHANGING THE APPROPIATE MEMORY LOCATIONS. 

REQUIREMENTS 



2.1 HARDWARE: 

A. ANY PDP-11 PROCESSOR - WITH OR WITHOUT HARDWARE SWITCH REGISTER. 

B. RH MASSBUS CONTROLLER 

C. TM02/TM03 MAG TAPE CONTROLLER 

D. AT LEAST ONE (1) TU4S SLAVE 

2.2 STORAGE: 

THIS PROGRAM REQUIRES AT LEAST 3K OF CORE 
3. LOADING PROCEDURE: 



USE STANDARD BINARY LOADING PROCEDURE 
4. STARTING PROCEDURE 



THE PROGRAM IS ALWAYS STARTED AT LOCATION 200 (8) 

***LOC. 176 (SWREG) IS DEFINED AS THE SOFTWARE SWITCH REGISTER 
(REFER TO SECTION 5 FOR MORE DETAIL) 

***IF THE SOFTWARE SWITCH REGISTER IS USED THE DIAGNOSTIC TYPES OUT THE FOLLOWING 
MESSAGE: SWRsXXXXXX NEW= (REFER TO SECTION 5 FOR OPERATOR OPTIONS) 
AT THE START OF THE PROGRAM. 
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5. CONSOLE SWITCH SETTINGS 



IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 

CONTROL: 

THIS PROGRAM ALSO SUPPORTS THE DYNANIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROPI THE TTY. THIS CAN BE ACCONPLISHED BY 
DOING THE FOLLOWING: 

1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 

2) THE MACHINE WILL THEN TYPE: SWR:XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 

3) AFTER THE "NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 

A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

B) IF A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 



SWTS (100000) 
SWU (040000) 
SW1 3(020000) 



IsSTOP AFTER EACH OPERATION 
0«PROCEED 

IsSTOP AT THE END OF THE OPERATION SEQUENCE 

OsPROCEED 
UIGNORE END OF TAPE (EOT) 

ObREWIND AT END OF TAPE (EOT) 



5.1 HALT 

**«T0 CHANGE THE CONTENTS OF SWREG TYPE < 6> BEFORE PRESSING CONTINUE AFTER A HALT.* 
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SEQ 0005 


6. 


OPERATION 








THE PROGRAM OPERATION IS QUITE SINPLE. BUT DOES 
REQUIRE THE OPERATOR TO HAVE KNOULEDGE OF THE 
TU4S TAPE STSTEN AS OPERATED ON THE RH NASSBUS 
CONTROLLER. THE OPERATOR HUST BE ABLE TO DECIDE 
WHICH SEQUENCE OF OPERATION IS REQUIRED, AND 
WHAT VALUES TO ASSICN TO THE VARIOUS PARAMETERS 
REQUIRED TO EXECUTE THEN. THE OPERATION SEQUENCE 
IS SET UP BY LOADING A TABLE WITH THE FUNCTION 
CODES OF THE DESIRED OPERATIONS AND SETTING THE 
NUMBER OF OPERATIONS IN A COUNTER. THE PROGRAM IS 
SET UP TO DO A WRITE OF TEN (8) WORDS OF ALL 
ONES DATA TO SLAVE ZERO (0) ON DRIVE ZERO (0) IN 
PE (1600 BPI) WITH A NINE TRACK NORMAL DATA FORMAT. 
THE DATA ADDRESS IS 3000 (8). THE OPERATION SEQUENCE 
IS SET TO DO A SINGLE WRITE. IF LOADED AND STARTED 
AT 200 (8) WITH NO CHANGES MADE AND SWITCH U AND 15 
SET TO A ZERO (0), THIS OPERATION WILL BE EXECUTED 
CONTINUOUSLY. 

THE FOLLOWING IS THE LIST OF PARAMETERS WHICH MAY 
BE VARIED AND A DESCRIPTION OF EACH ALONG WITH THEIR 
CORE LOACATION: 






PARAMETER 


LOCATION DESCRIPTION 






RH ADDRESS 


600 ADDRESS OF RH (THE FIRST (REGISTER ADDRESS: CS1) 






DRIVE NUMBER 


700 SET TO SELECT TM02/TM03 NUMBER ADDRESS 0-7 






UNIT DESCRIPTION 


702 SET SELECTED SLAVE NUMBER (0-7) IN BITS 0,1,2 
SELECT PARITY IN BIT 3 (O^ODD 1-EVEN) 
SELECT DATA FORMAT IN BITS 4,5,6,7 
SELECT DENSITY IN BITS 8,9,10 






FRAME COUNT 


704 SET NUMBER OF FRAMES TO WRITE PER WORD COUNT AND FORMAT 
IN TWOS' COMPLIMENT 






WORD COUNT 


706 SET NUMBER OF WORDS TO BE TRANSFERRED IN TWOS' COMPLIMENT 




READ ADDRESS 


710 SET DESIRED ADDRESS FOR START OF READ BUFFER. 






WRITE ADDRESS 


712 SET DESIRED ADDRESS FOR START OF WRITE BUFFER. 






READY DELAY 


714 THIS DELAY VALUE IS USED BY THE PROGRAM TO ESTABLISH 

A MAXIMUM TIME TO AWAIT THE COMPLETION OF AN OPERATION 
BEFORE PROCEEDING TO THE NEXT. t« (DEFAULT IS APPROX 435 


MS FOR PDP-11/20)" 




READY MULTIPLIER 


716 IF THE VALUE SET INTO 714 DOES NOT ALLOW ENOUGH TIME, 

INCREASE THE SIZE OF THE MULTIPLIER. EACH INCREMENT OF 
MULTIPLIER WILL CAUSE THE 714 DELAY TO BE EXECUTED 
THAT MANY MORE TINES. 


THE 
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OPERATION DELAY 720 



OPER MULTIPLIER 722 
OPERATION NUMBER 724 

OPERATION TABLE 740-770 



6.1 FUNCTION CODES 

20>READ IN PRESET 
0?«REWIND-OFF LINE 
06«REWIND 
10'DRIVE CLEAR 
26>WRITE TAPE NARK 
24>ERASE 

30«SPACE FORWARD 
32«SPACE REVERSE 
50«URITE CHECK FORWARD 
56*WRITE CHECK REVERSE 
60*WRITE FORWARD 
70*REA0 FORWARD 
76>READ REVERSE 
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SEO 0006 



THIS DELAY IS USED TO ALLOW FOR SOME AMOUNT OF 
TINE BETWEEN THE EXECUTION OF EACH OPERATION. IT IS 
LOADED AND USED JUST AS IN THE READY DELAY(714) 
••(DEFAULT IS APPRO! 54 MS FOR PDP-11/20)^^ 

THIS IS USED JUST AS THE READY DELAY MULTIPLIER(716) 

THIS IS THE NUMBER OF OPERATIONS TO BE PERFORMED 
IN A SEQUENCE AND SHOULD REFLECT THE NUMBERS 
OF OPERATIONS SET INTO THE OPERATION TABLE. 

THIS TABLE (CONSISTING OF 15 LOCATIONS) IS TO BE 

LOADED WITH THE FUNCTION COOES FOR EACH OPERATION 

TO BE PERFORMED IN SEQUENCE. THE NUMBER OF ENTIRES 

MAY BE FROM ONE (1) TO FIFTEEN (15). MAKE SURE THAT 

THE NUMBER OF FUNCTION CODES SET IN THE TABLE IS REFLECTED 

BY THE NUMBER IN LOCATION 724 (OPNUM) 



H 
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6.2 DATA fOAflATS (BIT 7,6,5,4 OF UNIT DESCRIPTION) 

UsNINC TRACK NOWML: 2 fRAKS PER UORD 
153C0RE DUMP: 4 FRANES PER WORD 

6.3 DENSITY (BITS 10,9,8 OF UNIT DESCRIPTION) 

4*1600 BPI:PE (PE USES ONLY ODD PARITY) 

3*800 BPI:NRZ1 

2*800 BPI:NRZI (TU45 ONLY) 

1*556 BPIiNRZI (TU45 ONLY) 

0*200 BP1:NRZI (TU45 ONLY) 

6.4 PARITY (BIT 3 OF UNIT DESCRIPTION) 

1*EVEN PARITY 
0«ODD PARITY 

6.5 SLAVE SELECT (BITS 2,1.0 OF UNIT DESCRIPTIONS) 
SET TO DEVICE SLAVE ADDRESS (0-7) 



SEO 0007 



I 



I 1 

TUA5 UTILITY DRIVER PUCTII 30(1(K6) 13-JUIH78 15:51 PAGE 8 
CZTUTA.M1 15-JU1II-78 11:16 



SEC 0008 



1 



7. PROGRAM DESCRIPTION 

IN ORDER TO MAINTAIN THE CONTIHUOUS EXECUTION OF 
TNE OPERATIONS DESCRIBED THE PROGRAM IS ORGANIZED AS 

FOLLOWS: 

START 

INITIALIZE THE RH 

SET UP TAPE PARAMETERS (DENSITY, PARITY, FORMAT: WORD COUNT. FRAME COUNT. BUS ADDRESS) 

SELECT DEVICE TO TEST (DRIVE NUMBER, SLAVE NUMBER) 

EXECUTE OPERATION (SET FUNCTION AND FROM OP TABLE AND SET G0=1) 

AWAIT END OF OPERATION (READY DELAY) 

STOP IF SWITCH 15*1 

DO OPERATION DELAY (OP DELAY) 

STOP IF LAST OPERATION IN SEQUENCE AND SWITCH U=1 
POINT TO NEXT FUNCTION CODE IN OP TABLE 
JUMP BACK TO START 

7.1 FLOW: START: HOUSEKEEPING 

INIT: CLEAR MASSBUS AND TM02/Tn03 

SET UP: SET UP REQUIRED REGISTERS 

EXECUTE: SET FUNCTION AND 60=1 

AWAIT END: LOOP ON DRY=1 AS LONG AS ALLOWED BY READY DELAY 

STOP: IF SWITCH 15*1 

DELAY: PER OP DELAY 

END OF RSEQUENCE? IF NOT JUMP TO START 

STOP: IF SWITCH U^l 

JUMP TO START RESTART SEQUENCE 

7.2 VARIATIONS: THERE ARE TWO VARIATIONS MADE FROM THIS FLOW. 

BOTH ARE CAUSED BY A PARJTCULAR FUNCTION CODE. 

IF A READ REVERSE IS TO BE EXECUTED, THEN THE 

BUS ADDRESS IS INCREMENTED BY THE SIZE OF THE 

RECORD BECAUSE THE DATA IS LOADED INTO MEMORY 

IN REVERSE (I.E: HIGH ADDRESS TO LOW ADDRESS) 

THE SECOND VARIATION IS CAUSED BY A SPACE (FORWARD OR REVERSE) 

OPERATION AND IT IS THAT THE FRAME COUNTER IS SET TO A >1 

SO THAT ONLY ONE (1) RECORD IS SPACED OVER. IF YOU WISH 

TO SPACE OVER MORE THAT ONE (1) RECORD, SET LOCATION 1100 (8) 

TO THE TWOS' COMPLIMENT OF THE NUMBER OF RECORDS DESIRED. 

8. LISTING 
X 

511 .LIST BIN.LOCSEQ 



TU45 UTILITY DRIVER WCTll 50(1(K6> 13-JU»-78 15:51 P*G£ 9 



CZTUTA.P11 


13-JWI-78 11:16 




SEQ 0009 


312 








315 






.TITLE T(K5 UTILITY DRIVER 


5U 






;CZTUTA0 


515 






;25 HAT 78 


316 






;J. 6. AOARS/R. J. COLI INS 


317 






;REVISEO APRIL .1976 BT S. CARPENTER 


518 






1) SUPPORTS SOFTUARE SWITCH REGISTER 


319 






2) SUPPOIITS THE OTNANIC LOADING OF THE SOFTWARE SWITCH REGISTER 


320 






;REVISEO APRI 1977 BY J. G. AOANS 


321 








322 




1 )OOCUKNTATION CHANGES TO REFLECT TM05/TU4S CAPABILITY 


323 




.ABS 


324 








325 




; CONSOLE 


SWITCHES 


326 






327 




:SU 15-1(100000) STOP ON EACH OPERATION 


328 




• 


0 CONTINUE 


329 




:SU Usi (040000) STOP AT END OF SEQUENCE 


350 






0 CONTINUE 


331 




:SU 15«1(020000) IGNORE END OF TAPE (EOT) 


332 




• 
m 


0 REWIND AT END OF TAPE (EOT) 


355 








33A 




.-REGISTER EQUIVES 


335 








336 


000000 


RO=XO 




337 


000001 


R1=X1 




338 


000002 


R2»X2 




339 


000003 


R5=X3 




3<iO 


000004 


R4=U 




341 


000005 


R5«XS 




342 


000006 


SPsX6 




343 


000007 


PCsX7 




344 








345 


000046 


.=46 




346 000046 


000170 


RESTART: 


170 :ALLOW RESTART WHEN <LF> IS PRESSED 


347 






:DURING CHANGING OF SWRE6 IF SOFTWARE SWITCH 


348 






.•REGISTER IS USED. 


349 






350 








351 






352 








355 


000176 


. = 176 




554 000176 


000000 


SUREG: 0 ; SOFTWARE SWITCH REGISTER 


555 








556 








557 








358 








559 




.-THIS PROGRAM SUPPORTS THE SOFTWARE SWITCH REGISTER L0C.176. 


560 




.•REFER TO SECTION 5 OF DOCURENT FOR DESCRIPTION 


561 








562 




• 




563 








564 




.'STARTING ADDRESS 


565 








566 


000200 


.=200 




367 000200 


000167 001110 


JNP SETUP 
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1VJUN-78 


>68 




000600 


569 






570 






571 






572 


000600 


172**0 


Y T 'V 

575 


000602 


172**2 


574 


00060* 


172*** 


'9 f 

575 


000606 


172**6 


576 


000610 


172*50 


577 


00061 2 


172*52 


578 


0006 H 


172*5* 


579 


000616 


172*56 


580 


000620 


172*60 


581 


AAA ^ 1 

000622 




582 


000624 


172*6* 


eft V 

385 


000626 


1 72*66 


58A 


AAA^ VA 

000630 


172*70 


VAC 

585 


000632 




586 






587 






368 






389 


00063* 


177776 


390 


000636 


177570 








392 






393 






39* 


0006*0 


177560 


395 


0006*2 


177562 


396 


0006** 


17756* 


397 


0006*6 


177566 
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SEQ 0010 



;Tfl02/Tll05 REGISTEtS 

172*40 
172442 
172444 
172446 
172450 
172452 
172454 
172456 
172460 
172462 
172464 
172466 
172470 
172472 

; PROCESSOR ADDRESSES 



177776 
177570 

:TTT REGISTERS 

177560 
177562 
177564 
177566 



.•PROCESSOR STATUS 
:SUITCH REGISTER 



TTY READER STATUS 
TTY READ BUFFER 
TTY PUNCH STATUS 
TTY PUNCH BUFFER 
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000700 



000000 
002300 
177760 
177770 
004000 
005000 
100000 
000001 
010000 
000001 
000001 
000000 
000000 
000000 
000000 
000000 
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598 
599 
400 

401 000700 

402 000702 
405 000704 

404 000706 

405 000710 

406 000712 

407 000714 

408 000716 

409 000720 

410 000722 

411 000724 
000726 

415 0007 JO 

414 000752 

415 000754 

416 000756 
4i; 
418 
419 
<^20 
-^21 
422 
423 
424 
425 
426 
427 
428 
429 
450 
451 
452 
455 
454 
455 
456 
437 
458 
459 

440 000740 

441 000742 

442 000744 

443 000746 

444 000750 

445 000752 

446 000754 

447 000756 

448 000760 

449 000762 

450 000764 

451 000766 

452 000770 
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L 
11 



SEQ 0011 



000060 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



DRVN: 

UDES: 
FCNT: 
UCNT: 
RAOM: 
WAOOII: 
RDTDLY: 
ROTDI: 
OPDIT: 
OPDK: 
OPNUM: 
TIB: 
TOB: 
COUNT: 
flDSU: 
TEPIPST: 



OPTSl! 



.=700 

;SET PMiMETERS KSIKO fOK UNIT UNDER TEST* 



DRIVE NUMBER 
SLAVE RESCRirTKM 
FRAME COINT 
ilORD COUNT 
READ ADDBCSS 
MRITE ABORESS 
READY DELAY 

READY DELAY NULTIPLIER 

OPERATION DELAY 

OPERATION DELAY MULTIPLIER 

OF OPERATION (1 TO IS) 



0 

2300 

-20 

-10 

4000 

5000 

100000 

1 

10000 

1 

1 

0 

0 

0 

0 

0 



OPERATION TABLE********** 

ENTER OPERATION SEQUENCE DESIRED. 

MUST HAVE AT LEAST 1 OPERATION. AND 

NAY NAVE UP TO 15(8). 

SET THE OPERATION COUNTER EQUAL 

TO THE NUNBER OF OPERATIONS IN 

THE SEQUENCE. 



20 
02 
06 
10 
26 
24 
30 
32 
50 
56 
60 
70 
76 



READ IN PRESET 

REWIND-OFFLINE 

REWIND 

DRIVE CLEAR 

WRITE TAPE HARK 

ERASE 

SPACE fdRUARD 
SPACE REVERSE 
WRITE CHECK FORWARD 
WRITE CHECK REVERSE 
WRITE FORWARD 
READ FORWARD 
READ REVERSE 



60 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



;F1LL WITH OPERATION SEQUENCE 
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001000 








.^1000 
















AAV 

; ST AIT 


Of PROGRAR*^ 


455 














« 

AlCAA ^A 

#700, SP 


456 


001000 


012706 


000500 




STAIIT: 


NOV 


457 


001004 


012777 


000340 


1 > fOCC 




mv 


#340,«PSlf 


458 

459 


001012 


016700 


177706 






flOV 


OrllUH,RO 


460 


001016 


012701 


000740 






NOV 


fuPTBL.Ri 


461 


001022 


012777 


000040 


Iff 


A: 


HOV 


f40,BCS 


462 


001030 


016777 


177644 


Iff J^C 




HuV 


DRVN.flCS 


463 


001056 


016777 


177640 


Iff 7vv 




HOV 


lH>cS,BC< 


464 


001044 


016777 


177656 


Iff J^w 




HOV 


UCNT.WC 


465 


001052 


016777 


177626 


Iff 7Cv 




HOV 


rCNT.irC 


466 


001060 


012102 








MV 


r A4 \ A A ^ 

(Rl )*,RZ 


467 


001062 


022702 


000050 






CPIr 


f 30,R2 


469 


001066 


001403 








BEQ 


AA 


469 


001070 


022702 


000052 






CUP 


A^ 

#32, R2 


470 


001074 


001003 








BNE 


AO 


471 


001076 


012777 


\mn 


177*0? 

1 f f JVC 


AA: 


nov 


#-1 ,irC 


4 72 


001104 


022702 


000060 




AO: 


Znr 




47? 


001110 


103404 








BLU 


Al 


4 74 


001112 


016777 


177574 


1 77464 

Iff 




HOV 


tIAAAA AAA 

WADOR.iBA 


475 


001120 


000413 








AA 

BR 


A3 


476 


001122 


016777 


177562 


177454 


Al : 


m)V 


A A AAA AAA 

nADDR (iBA 


477 


001130 


022702 


000070 






CnP 


#f 0,R2 


4 78 


001 1 54 


001405 








BEQ 


• * 
A3 


479 


001136 


016703 


177542 






HOV 


C ^UT AT 

FCNT,R3 


480 


001142 


005403 








NEG 


Al 

R3 


481 


001144 


060377 


177454 






AAA 

ADD 


A T AA A 

R3,iBA 


482 


001150 


052702 


000001 




A3 : 




#1 ,Rc 


485 


001154 


000240 








UAA 




484 


001156 


000240 








UAA 




485 


001160 


010277 


177414 






TOV 


BO ai* 1 
Rc ,iC 1 


486 


001164 


000240 








UAA 

MOP 




487 


001166 


000240 








MOP 




488 


001170 


016704 


177522 






HOV 


Af^ Wl^ V t%J 

RDTDX,R4 


489 


001174 


016703 


177514 




80: 


HOV 


R0TDLT,R3 


490 


001200 


032777 


000200 


177404 


B: 


BIT 


M'^AA SAC 

#200«iOS 


491 


001206 


001005 








AUC 

BNE 


c 


492 


001210 


005303 








DEC 


AT 

R3 


49S 


001212 


001372 








BNE 


A 

B 


494 


0012U 


003504 








AP 

DEC 


A/ 

R4 


495 


001216 


001566 








AUf 

BNE 


BO 


496 


OO1I2O 


000240 








UAA 

NOP 




497 


001222 


005777 


177410 




C : 


TST 


4 niA 

iSwR 


498 


001226 


100001 








A Al 

BPL 


D 


499 


001250 


000000 








HALT 




500 


001252 


004767 


000502 




0: 


1 r A 

JSR 


AA Air^uA 

PCCKSUR 


501 


001256 


000240 








UAA 

NOP 


502 


001240 


000240 








UAA 

NOP 




505 


001242 


016704 


177454 






HOV 


Wr « A^ 


504 


001246 


016705 


177446 




EO: 


HOV 


0PDLY.R3 


505 


001252 


005305 






E: 


DEC 


R3 


506 


001254 


001576 








BNE 


E 


507 


001256 


005504 








DEC 


R4 


508 


001260 


001572 








BNE 


EO 



H 1 



SEQ 0012 



SET COUNTER 
SET POINTER 
iNIT 

DRIVE NUMBER 

UNIT DESCRIPTION 

UORD COUNT 

FRAIK COIMT 

SET OP CODE 

SEE IF SPACE FORyARD 

IF SO: BR 

SEE IF SPACE REVERSE 
IF NOT: BR 

SET TO SPACE ONE RECORD 

SEE IF READ OP 

IF SO: BR 

SET WRITE ADDRESS 

SET READ ADDRESS 

SEE IF READ OPERATION 

IF SO: BR 

GET FRAHE COUNT 

SET BUS ADDRESS FOR READ REVERSE 
SET GO BIT 



.•START OPERATION 



;SET DELAY HULTIPLIER 
;SET READY DELAY 

:IF DRY: BR 



.DELAY FOR DRIVE READY 

.SEE IF STOP ON OPERATION 
:IF NOT: BR 

; CHECK FOR CNTL 6 



;SET DELAY HULTIPLIER 
.'SET OPERATION DELAY 



:OELAY BETWEEN OPERATIONS 



M 1 
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509 


001262 


004767 


0001)2 






JSR 


Bf BtflMk 


510 


001266 


005300 








KC 


BA 


511 


001270 


001294 








WE 


H 


51? 
















7 1 3 


W i C f c 






177336 




BIT 


«40000,aSM 


5U 


001)00 


001401 








BEO 


IS 


515 


00150? 


000000 








HALT 




516 


001504 


004767 


000250 




1$: 


jsa 


FC.CKSUI 


517 


001310 


000167 


177464 








START 


518 

519 














520 
















5?1 


001314 


000240 






SETUP: 


■Or 




' * * 


001316 


016701 


1772)6 






NDV 


n Bf 


525 


001 522 


012700 


000015 






HDV 


BIC BA 

VI J»IIO 


52^ 


001 326 


012702 


000602 






now 


MUf B9 
•WC,B< 


525 


001 552 


062701 


000002 




SETA: 


ADO 


f2,R1 


526 


001336 


010122 








NOV 


R1.(R2)» 


5?7 


001 340 


005300 








wcl. 


BA 


526 


001342 


001375 








BME 


SETA 


529 


001344 


012706 


000500 






nOV 


BCAA CB 


530 


001350 


013746 


000006 




SUSWft : 


nOV 




551 


001 354 


013746 


000004 






nOV 


••*»»**l»r J 


552 


001560 


012737 


001400 


UvUvU'i 




nuv 


B1 C BB/, 


555 


001566 


022777 


\777''7 


1 1 f cc 








534 


001374 


001402 










CB 


555 


001376 


000404 








BR 


T* 
JB 


556 


001400 


022626 






It: 


V*1r 


V >r J * ,\ »rl ♦ 


k t t 

557 


AMI i A 1 

001402 


0}27b7 


AAA 4 

0001 76 


Iff ceo 


2*: 




BCUBCC CUB 


558 


001410 


012637 


000004 




5S: 


■nu 


/CB^A BBZ, 


S59 


001414 


012637 


000006 

VVvWV 






■nu 


<sp)».af6 


5<iO 


001420 


023727 


000656 


000176 




f ■& 




541 


001426 


001002 








bPIc 


iin 


54,' 


001430 


004767 


000156 








Br rMTi ii 


545 
544 


001434 


000167 


177540 




GO: 




START 


545 












;R£UllfO 


fRON EOT (PER 


546 
















547 


001440 


032777 


020000 


1 771 7n 

Iff! r U 


RUM): 


BIT 


f 20000, asvR 


548 


001446 


001055 








BNE 


RVNOX 


549 


oouso 


052777 


002000 


1 771 %L 
Iff! J< 




BIT 


f2000,B0S 


550 


001456 


001427 








BEO 


RiWOX 


551 


001460 


012777 


000040 


1771 i>> 

Iff! <« 




NOV 


#40,BCS 


552 


001466 


016777 


1 77206 


1 7711A 
1 f f 1 1 % 




NOV 


DRVN.aCS 


55S 


001474 


016777 




1 771 xn 




NOV 


U0ES,6C2 


554 


001502 


012777 


000007 


1 77070 




NOV 


#7,aci 


555 


001510 


C52777 


00020C 


1 77n7A 
1 f f wf ^ 


RUNOA: 


BIT 


fzoo.aos 


556 


001516 


001774 








BEQ 


RWNOA 


557 


001520 


052777 


020000 


177064 


RIM08: 


BIT 


f20000,aos 

RMOB 


5S« 


001 S26 


001574 








BNE 


559 


001550 


005726 








TST 


<SP)» 


560 


001552 


000167 


177242 






JNP 


START 


561 


001556 


000207 






RIMOX: 


RTS 


PC 



SEO 00"' 



.-CO SEE IF REUINO 

:IF SEQUENCE NOT ftONE: BR 

;SCE IF HALT ON SEQUENCE 

.-CHECK FOR CNTL 6 



6ET ADBRESS OF CS1 

SET HUNBER OF REGISTERS 

6ET FIRST ADDRESS 

INCRENENT 

LOAD ADDRESS 

SEE IF DONE 

IF NOT: BR 

.'SAVE VECTORS 

.SET UP FOR TIMEOUT 

;REFERENCE HARDWARE SWITCH REGISTER 



.ADJUST STACK 

: POINT TO SOFTWARE SWITCH REG 
.-RESTORE VECTORS 

;IS SOFTWARE REG USED 
'BRANCH IF NO 

! ALLOW SOFTARE SWITCH REGISTER TO BE CHANGED 
.-ELSE GO START EXECUTION 

$W13) 

:SEE IF IGNORE EOT 
;IF SO: BR 
;SEE IF AT EOT 
;1F NOT: BR 
:INIT 

.-SET DRIVE NUNBER 
:SET SLAVE NUNBER 
.-START REUINO 
.-SEE IF ORT 
;IF NOT: BR 
;SEE IF PIP RESET 
:IF NOT: BR 
.-RESET STACK 
.-RESTART SEQUENCE 
.•RETURN 
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r 7TIIT A 


PI 1 

r 1 1 




1 1 • 16 












562 


















563 












; CKSUR 




564 












:FRon 




565 
566 


001540 


022767 


000176 


177070 


CKSUR: 


CUP 




•SnFTUARF SUITtH RFG PRFSFMT 

0 «9wr 1 wnn l. <JWAivn ntw rntwwni 


567 


001546 


001041 








BNE 


OUT 


•NO SFT OUT 

0 nw 0 Uk ■ WW 1 


568 


001550 


105777 


177064 






TSTB 




•VFS UAIT FOR 


569 


001554 


100036 








BPL 


niiT 


-RFADY GFT fHARACTFR 


570 


001556 


017767 


177060 


177142 




MOV 


arrR tir 


-AND STRIP OFF 

^nr^i/ «jinA> \t\ \ 


571 


001564 


042767 


177600 


177134 




BIC 


#177600 TIB 


-THE GARBAGE 


572 


001572 


022767 


000007 


177126 




CHP 


#7 TIB 


IS IT A < G> 


573 


001600 


001024 








BNE 


OUT 




574 


001602 


012704 


002512 






nov 


#$CNTG.R4 




575 


001606 


004767 


000242 






JSR 


PC. T TOUT 




576 


001612 


012704 


002516 




CNTLU: 


HOV 


fSNSUR R4 




577 


001616 


004767 


000232 






JSR 


PC TTOUT 




578 


001622 


017703 


177010 






HOV 


asuR R3 

■ i# wn 0^j 




579 


001626 


004767 


000354 






JSR 


PC OCTPE 




580 


001632 


012704 


002525 






NOV 


fSNNEU R4 




581 


001636 


004767 


000212 






JSR 


PC TTOUT 

■ V # 1 1 WW 1 




582 


001642 


005037 


000736 






CLR 


aiTENPST 




583 


001646 


004767 


000002 






JSR 


PC, SREAD 


.-GO READ A LINE 


584 


001652 


000207 






OUT: 


RTS 


PC 


■RETURN TO MAIN BODY OF PROGRAM 


585 
586 


001654 


005067 


177056 




SREAD: 


CLR 


TENPST 




587 


001660 


012767 


000007 


177044 




nov 


#7. COUNT 




588 


001666 


004767 


000546 




IS: 


JSR 


PCTTIN 


■GO READ A CHARACTER 


589 


001672 


042767 


1 77600 


177026 




BIC 


#177600, TIB 


-STRIP OFF GARBAGE 


590 


001700 


122767 


000025 


177020 




CHPB 


«25,TIB 


;IS IT A U? 


591 


001706 


001002 








BNE 


2S 


: BRANCH IF NOT 


592 


001710 


005726 






3S: 


TST 


(SP)* 


:POP THE STACK 


593 


001712 


000737 








BR CNTLU 


: START OVER 


594 


001714 


122767 


000015 


177004 


2S: 


CHPB 


#15, TIB 


:IS IT A <CR>? 


595 


001722 


001013 








BNE 


4S 


rBRANCH IF NOT 


596 


001 724 


012767 


000200 


1 77002 




NOV 


#200,RDSU 




597 


001732 


004767 


000150 






JSR 


PC.TCRLF 


;ECHO IT WITH <LF> 


598 


001 736 


022767 


000007 


1 76766 




CNP 


#7. COUNT 


;UAS IT FIRST CHARACTER 


599 


001744 


001037 








BNE 


7S 


; CHANGE SUR IF NOT FIRST ONE 


600 


001746 


005726 






8S: 


TST 


(SP)* 


;POP THE STACK 


601 


001 750 


000740 








BR 


OUT 


;GET OUT 


602 


001752 


122767 


000060 


1 76746 


4S: 


CNPB 


#60, TIB 




603 


001760 


003004 








BGT 


5S 




604 


001 762 


122767 


000067 


176736 




CNPB 


#67, TIB 




605 


001 770 


003005 








BGT 


6S 




606 


001 772 


012704 


002535 




5$: 


NOV 


#SQUEST,R4 




607 


001 776 


004767 


000052 






JSR 


PC. TTOUT 




608 


002002 


000742 








BR 


3S .-START OVER IF NOT LEGAL CHARACTER 


609 


002004 


006367 


176726 




6S: 


ASL 


TENPST 




610 


002010 


006367 


1 1titll 






ASL 


TENPST 




611 


002014 


006367 


176716 






ASL 


TENPST 




612 


002020 


142767 


000060 


1 76700 




BICB 


#6C,TIB ;GET NITTY-GRITTY 


013 


UUcUcO 


1 30f Of 


1 f OOr^ 


1 fOfVC 




BISB 


TIB. TENPST 




6U 


002034 


005367 


176672 






DEC 


COUNT .-ONLY WANT 6 DIGITS 


615 


002040 


001754 








BEQ 


5S 




616 


002042 


00071 1 








BR 


IS 




617 


002044 


016777 


176666 


176564 


7$: 


NOV 


TENPST. aSUR .-CHANGE SWITCH REGISTER CONTENTS 
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SEG 0015 


618 


002052 


000735 








BR 


8$ 




619 


















620 


















621 












:TTY OUTPUT SUBROUTINE* 




622 


















623 


002054 


112467 


176650 




TTOUT: 


NOVB 


(R4)«^,T0B 




62A 


002060 


122767 


000043 


176642 




#*MAA 

CnPB 


f43,T0B 




625 


002066 


001446 








AP A 

BEQ 


TEX 




626 


002070 


122767 


000045 


176632 




^ M AB 

CnPB 


MJ C taa 

f4},T0B 




627 


002076 


001403 








AP A 

BEQ 


▼ ^ Ai r 

TCRLF 




628 


002100 


004767 


000064 






JSR 


A T A/* 

PC, TOG 




629 


002104 


000763 








B A 

BR 


T T Al 1 T 

TTOUT 




630 


002106 


112767 


00001 5 


176614 


TCRLF: 


novB 


il 1 C TOO 




631 


002114 


A A ^ ^ d ^ 

004767 


OOOOSO 






JSR 


PC 0 TOG 




632 


0021 20 


A 4 '^^AV 

012703 


000004 






nOv 


#4,R3 




633 


002124 


A A f l\ t ^ 

005067 


1 76600 




TCRLFA: 


CLR 


T AA 

TOB 




634 


002130 


004767 


000034 






1 C A 

JSR 


PC , 1 06 




635 


002134 


005303 








DEC 


R3 




636 


002136 


A A4 V 

001372 








BNc 


T C Al F A 

TCRLFA 


;D0 FILLERS 


d 

637 


002140 


4 4 ^ ^ 

112767 


000012 


176562 




MAUD 

nOVB 


il 1 O TAO 

f Ic.TOB 




638 


002146 


004767 


000016 






1 CD 


D/" TAf 

PC , TOG 




639 


002152 


105767 


1 765 56 






TSTB 


RDSU 




d t t\ 

640 


002156 


1 00401 








Bnl 


1$ 




641 


4 d A 

002160 


AAA^ 

000735 








BR 


TTOUT 




642 


002162 


A A r A ^ ^ 

005067 


176546 




1$: 


CLR 


RDSU 




643 


A A ^ Add 

002166 


A A A ^ t\d 

000406 








BR 


TEX 




d t s 

644 


A A *> 4 ^A 

002170 


105777 


176450 




TOG: 


1 o Id 


iTPS 




d i C 

645 


A A ^ 4 ^ / 

002174 


4 AAV^C 

100375 








DDI 

BrL 


TOG 




646 


002176 


4 4 y 

116777 


1 76526 


176442 




MniiD 

nuvD 


TOB.aTPB 




647 


A A ^ A / 

002204 


A A A ^ A ^ 

000207 






TEX: 


DTC 

Rid 


PC 




648 


















649 












;OCIAL 


OUTPUT SUBROUTINE************ 


Z C A 

650 
















651 


AA^'IAZ 

002206 


012767 


000001 


000222 


GCTPE: 


Mnii 


#1.0FL 




652 


002214 


A4 ATA/ 

010304 








nuv 


R3,R4 




Z C T 

653 


002216 


AAA/ 4 A 

000410 








dk 


OCTPO 




d c s 

654 


A A ^ ^ ^ A 

002220 


A A C A ^ ^ 

005067 


000212 




OCTP: 


CLR 


OFL 


; CLEAR FLAG FOR LEADING ZERO 


C C 

655 


002224 


A4 ATA/ 

010304 






0CTPE1 : 


MAI/ 


R3,R4 


:SEE IF NUMBER IS ZERO 


656 


A A ^ ^ 

002226 


A A 4 A A / 

001004 








Due 

BNc 


OCTPO 


:IF NOT ZERO: BR 


657 


AAIITA 

002230 


AAi 9 

004767 


000162 






ICD 

JSR 


PCOCTPGI 


:ELSE PRINT ZERO 


Z C D 

658 


A A ^ ^ V i 

00"'' 34 


AAA 4 L. *9 

000167 


000120 






Jnr 


0CTP3 


.SPACE AND EXIT 


659 


Ai A 


032704 


100000 




OCTPO: 


D f T 


f1000C0,R4 


;SEE IF BSD = 1 


660 


AA^ i M 

002(^44 


AA4 t A^ 

001406 








OCA 

Bcu 


0CTP1 


:IF NOT: BR 


661 


002246 


A 4 *\^t\i 

012704 


000001 






nUV 


#1.R4 




662 


A A ^ ^ C O 

002252 


A A / ^ d ^ 

004767 


000116 






1 C D 

JSR 


PC.OCTPG 


.-PRINT 1 


663 


002256 


A A A 4 ^ 7 

000167 


000006 






JHP 


0CTP2 




664 


002262 


AAC AA/ 

005004 






0CTP1 : 


CLR 


R4 




66 T 


002264 


AAi 9Z 7 

004767 


000104 






1 C A 

JSR 


PC.OCTPG 


;PRINT 0 


666 


002270 


A4 A VA^ 

010304 






0CTP2: 


nov 


R3.R4 


667 


002272 


AA^ AAy 

006004 








ROR 


R4 




668 


A A ^ ^ ^ i 

002274 


A A^ A A i 

006004 








ROR 


R4 




669 


002276 


006004 








ROR 


R4 


:P0SITI0N DIGIT 


670 


002300 


006004 








ROR 


R4 


671 


002302 


A A A V A J 

000304 








SWAB 


R4 




672 


002304 


004767 


000064 






JSR 


PC.OCTPG 


.PRINT DIGIT 2 


673 


002310 


010304 








nov 


R3,R4 
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002312 


AA^AA/ 

006004 








ROR 


R4 








675 


00231 H 


AAAYA/ 

000304 








SUA8 


R4 








bib 


00£31o 


AAZ 7Z7 

004 ro/ 


0OO0S2 






JSR 


PC. OCTPG 


;PRINT 


DIGIT 


3 


Of f 


AA0T50 


A1 t\XI\L 

01 030h 








nov 


R3.R4 








bfo 


AAOTO/. 


AAZ1 AZ 

00o104 








ROL 


R4 








6f ▼ 


AAOTOX 

00^3^0 


AAiLI t\L 

00O104 








ROL 


R4 








6 BO 


002330 


AAATAZ 

000304 








SWAB 


R4 








601 


00^33c 


AAZ 7iL7 

004 f Of 


000036 

W W 






JSR 


PC. OCTPG 


; PRINT 


DIGIT 


4 


boc 


00£33O 


ni f\xt\L 








nov 


R3.R4 








653 


002340 


AAXAAi. 

006004 








ROR 


R4 








6eA 


00e34£ 


AAiLAAZ 

00OU04 








ROR 


R4 








oe) 


002344 


AAiLAAZ 

00O004 








ROR 


R4 








oeo 


U0c3<to 


AAZ 7it7 
OUh f Of 


0000?? 






JSR 


PC .OCTPG 












A1 t\Xf\L 








MPV 


R3,R4 








oeo 


00c334 


AAZ 7<t7 

OOh f Or 


000014 






JSR 


PC. OCTPG 


.-PRINT 


DIGIT 


5 


007 


00c30U 


A1 57it7 


000?40 


17634? 


0CTP3: 


MOV 


#240 TOB 








Otv 


U0c30o 


f\f\L 7A7 
UU«I f Of 


177576 






JSR 


PC. TOG 


.-PRINT 


SPACE 




07 1 


U0c3r e 


0A03A7 
UUUcUf 








RTS 


PC 


.-EXIT 






AO 9 
07£ 


Wcsf'* 


0Z570Z 
U<lcr U*! 


1 77770 

1 f f f f V 




OCTPG: 


BIC 


#1 77770. R4 








Ot3 




noi noz 








BNE 


OCTPGO 








OT<l 


UUc<iUc 


UU5f Of 


000030 






TST 


OFL 








Otj 


UUc'iUO 


001 001 
UU lUU 1 








BNE 


OCTPGO 








OtO 


UUc*t 1 w 


000307 
UUUcUf 








RTS 


PC 








AQ7 

OTf 


nn5Ai 5 

UUcI 1 £ 


UU3cOf 


000020 

W W<B V 




OCTPGO: 


INC 


OFL 








ADA 

OtO 


UUc** 10 


OC970A 
U3cf U*» 


000260 

WVC WV 




0CTPG1 : 


BIS 

0 • w 


#260, R4 








Ott 


UUc*icc 


01 OZA7 
U 1 U*tOf 


1 76302 






nov 


R4,T0B 








7nn 


nn5Z5A 


00A7A7 
UUI f Of 


177536 






JSR 


PC, TOG 








rU 1 




ni A«A/ 








nov 


R3,R4 








f Uc 




000907 








RTS 


PC 










AAOXYX 
\JVcH30 


000000 






OFL: 


0 




.•FIRST 


CHAR 


FLAG 
























7nc 












.•TTY READ SUBROUTINE********** 






7nA 

r UO 






















707 

fvl 




AACA77 

\J\J^\il 1 


1 761 74 




TTIN: 


CLR 


aTKS 








7nB 
r UO 


nn5zzz 


AACA77 
UU3Uf f 


176172 






CLR 


iTKB 








700 




nACAZ7 

UU3UOf 


176252 






CLR 


TIB 










no5A^^ 


00^377 
UU3cr 1 


176160 






INC 


BTKS 








71 1 


AA7XXA 


1 0^777 
1 U3f f f 


1 761 S4 




TTINI : 


TSTB 


BTKS 








715 


AAJ/Z/ 
UUcMOl 


100X7^ 
1 UUJf J 








BPL 


TTINI 








71 X 


UUctOO 


01 77<i7 

U 1 f f Of 


176150 


176232 




nov 


aTKB,TIB 








71 A 




1 0^777 
1 U3 f f f 


176144 




TTIN2- 


TSTB 


aTPS 








71 S 




100X7S 
1 vv Jf ^ 








BPL 


TTIN2 








71 A 
r 1 D 


003^0? 


1 1 A777 
1 1 0 f f f 


1 76220 


176136 




novB 


TIB,aTPB 








71 7 


005^10 


000907 








RTS 


PC 








r lO 






















710 


003^15 


0^70AS 
U3 f U«» J 


021507 




SCNTG: 


.ASCII 


11 G#/ 








7?n 


00PS1 A 
UUC ^ 1 o 




051 127 


020075 


SMSUR: 


.ASCII 


/XSUR= «/ 








751 


009S9^ 

Uwc JC** 


0£X 
UH J 


















75? 


\J\JCjCj 


0^0 

U1U 


047040 


053505 


SHNEW: 


.ASCII 


/ NEy= #/ 








723 


002532 


020075 


043 
















724 


002535 


077 


021445 




SOUEST: 


.ASCII 


/?X#/ 








725 




004000 








.-4000 










726 




0001 ro 








• REPT 


100 








727 












0 










728 












.ENDR 










729 
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730 005000 - .=5000 

731 000100 .REPT 100 

732 177777 

733 .ENDR 
73A 

735 000001 .END 



I 

S£Q 0017 
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A 

A 


001 Uc^ 


Do 


OOOocc 


nf TD1 
DC Ir 1 


AA 


OOlOf o 


DKVN 


nnmnn 
OOOr 00 


'jL I re 


A5 


OOvolO 


Da 


OOOolc 




AO 


001 IOh 


DT 


OOOoeo 


AC 1 

VT L 


A 1 
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.CZTUTA.SEQ/S0L.CZTUTA.P11 
RUN-TIME: 3 7 .3 SECONDS 
RUN-TIHE RATIO: 23/11=2.0 
CORE USED: 1AK (28 PAGES) 
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SEQ 0018 



002262 RUNDX 001536 TPS 0006AA 

002270 SETA 001332 TTIN C02AA0 

002360 SETUP 00131A TTINI 002A60 

002A36 SN 000630 TTIN2 002A7A 

000720 START 001000 TTOUT 00205A 

000722 SUSUR 001350 UDES 000702 

00072A SUR 000636 UADDR 000712 

0007A0 SUREG 000176 UC 000602 

001652 TCRLF 002106 UCNT 000706 

00063A TCRLFA 00212A SCNTG 002512 

000710 TE«PST 000736 SNNEW 002525 

00073A TEX 00220A SRSUR 002516 

00071A TIB 000726 SOUEST 002535 

000716 TKB 0006A2 SREAD 00165A 
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